<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>if result << 33<-,><:f>
<:#568,12960> message("Unable to execute _HELPMKR.HLP. Make sure your Windows directory is in the current path and that it contains WINHELP.EXE.", "HelpMaker")
<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>endif<-,><:f>
<:#269,12960><:f240,2Times New Roman,0,0,0><+,><+!>end function<-,><-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+,><+!>function config()<-!><-,><:f>
<:#568,12960>addcascademenuitem(1, "Help&Maker", "&RTF Docs", "&Save...", "{thisfile}!savertf", "Save the current document to an RTF format for help file creation.")
<:#568,12960>addcascademenuitem(1, "Help&Maker", "&RTF Docs", "&Define RTF Path...", "{thisfile}!changertfpath", "Define the path where you store your RTF documents.")
<:#284,12960> <:f240,2Times New Roman,0,0,255>if lcase$(color1) = "none" or lcase$(color2) = "none"
<:#568,12960> message("Any colors defined in the .HPJ file will not be seen due to the COLORS=NONE line in the Windows Help section of your WIN.INI file.", "HelpMaker")
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#284,12960> <:f240,2Times New Roman,0,0,255>wend
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#284,12960>
<:#284,12960>saveas(strcat$(rtfpath, query$("Enter RTF file to be saved in {rtfpath}", defname)), 32, "", "Rich Text Format")
<:#284,12960>call hc()
<:#269,12960><+!>end function<-!>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function topic()<-!><:f>
<:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<+,> Message("<-,>Topic creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<+,> EXIT FUNCTION<-,>
<+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
usercontrol("Place the insertion point on the line with the Topic:")
sendkeys("<[>end]<[>shifthome]")
<:#284,12960>topic = curshade$()
<:#284,12960> <:f240,2Times New Roman,0,0,255>if topic != ""
<:#284,12960> topicrest = topic
<:#284,12960> spacepos = instr(1, topic, " ")
<:#284,12960> <:f240,2Times New Roman,0,0,255>while spacepos != 0
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function macroshot()<-!><:f>
<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<:#568,12960><+,> Message("<-,>Macro hot spot creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<:#284,12960><+,> EXIT FUNCTION<-,>
<:#284,12960><+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
<:#284,12960><:f240,2Times New Roman,0,0,255>call listfiller()
<:#284,12960>result = dialogbox(".", "macros")
<:#284,12960> <:f240,2Times New Roman,0,0,255>if result = 0
<:#284,12960> exit function
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#284,12960>usercontrol("Select the text (left to right) to be macro hotspot.")
<:#284,12960>hotspot = curshade$()
<:#284,12960> <:f240,2Times New Roman,0,0,255>if hotspot = ""
<:#284,12960> message("There's no text on that line to make a hotspot.", "HelpMaker")
<:#284,12960> call macroshot()
<:#284,12960> exit function
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function crossref()<-!><:f>
<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<:#568,12960><+,> Message("<-,>Cross reference jump creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<:#284,12960><+,> EXIT FUNCTION<-,>
<:#284,12960><+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
<:#284,12960>usercontrol("Place the insertion point on the first cross reference.")
<:#284,12960>docrossref:
<:#284,12960>sendkeys("<[>end]<[>shifthome]")
<:#284,12960>crossref = curshade$()
<:#284,12960> <:f240,2Times New Roman,0,0,255>if crossref != ""
<:#284,12960> specialeffects(256, "")
<:#284,12960> sendkeys("<[>end]<[>ctrln]")
<:#284,12960> protectedtext()
<:#284,12960> spacepos = instr(1, crossref, " ")
<:#284,12960> <:f240,2Times New Roman,0,0,255>while spacepos != 0
<:#284,12960> first = left$(crossref, spacepos - 1)
<:#284,12960> <:f240,2Times New Roman,0,0,255>wend
<:#284,12960> type(ucase$(crossref))
<:#284,12960> <:f240,2Times New Roman,0,0,255>if decide("Do you wish to make the next line a cross reference?", "Help Maker")
<:#284,12960> sendkeys("<[>down]")
<:#284,12960> goto docrossref
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function popupmark()<-!><:f>
<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<:#568,12960><+,> Message("<-,>Popup mark creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<:#284,12960><+,> EXIT FUNCTION<-,>
<:#284,12960><+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
<:#284,12960>usercontrol("Shade the text (from left to right) to mark as a popup definition:")
<:#284,12960>popup = curshade$()
<:#284,12960>underline()
<:#284,12960> <:f240,2Times New Roman,0,0,255>if popup != ""
<:#284,12960> spacepos = instr(1, popup, " ")
<:#284,12960> <:f240,2Times New Roman,0,0,255>while spacepos != 0
<:#284,12960> <:f240,2Times New Roman,0,0,255>wend
<:#284,12960> sendkeys("<[>esc]")
<:#284,12960> protectedtext()
<:#284,12960> type(ucase$(popup))
<:#568,12960> message(strcat$("Remember to create a popup text footnote with ", ucase$(popup), " as the footnote text."), "HelpMaker")
<:#284,12960> <:f240,2Times New Roman,0,0,255>endif
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function popuptext()<-!><:f>
<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<:#568,12960><+,> Message("<-,>Popup text footnote creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<:#284,12960><+,> EXIT FUNCTION<-,>
<:#284,12960><+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
<:#284,12960>usercontrol("Place the insertion point on the first line of the popup text:")
<:#284,12960>sendkeys("<[>home]")
<:#284,12960><:f240,2Times New Roman,>footnotes<:f><:f240,2Times New Roman,>(1, 0, 1, 0, 0)<:f>
<:#284,12960>setstyle("Topic1")
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function searchword()<-!><:f>
<:#284,12960> <:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<:#568,12960><+,> Message("<-,>Search word creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<:#284,12960><+,> EXIT FUNCTION<-,>
<:#284,12960><+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
<:#284,12960>usercontrol("Place cursor in topic content:")
<:#284,12960><:f240,2Times New Roman,>footnotes<:f><:f240,2Times New Roman,>(1, 0, 1, 0, 0)<:f>
<:#284,12960>setstyle("Topic3")
<:#284,12960>type(query$("What search word would you like to add?"))
<:#284,12960>sendkeys("<[>ESC]")
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function bluebackground()<-!><:f>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function listfiller<-!><:f><+!><:f240,2Times New Roman,0,0,0>()<-!><:f>
<:#284,12960><:f240,2Times New Roman,>filllist("About()")
<:#284,12960><:f240,2Times New Roman,>filllist("AddAccelerator(key, shift-state, ""macro"")")
<:#284,12960><:f240,2Times New Roman,>filllist("Annotate()")
<:#284,12960><:f240,2Times New Roman,>filllist("AppendItem(""menu-id"", ""item-id"",""item-name"",""macro"")")
<:#284,12960><:f240,2Times New Roman,>filllist("Back()")
<:#284,12960><:f240,2Times New Roman,>filllist("BookmarkDefine()")
<:#284,12960><:f240,2Times New Roman,>filllist("BookmarkMore()")
<:#284,12960><:f240,2Times New Roman,>filllist("BrowseButtons()")
<:#284,12960><:f240,2Times New Roman,>filllist("ChangeButtonBinding(""button-id"", ""button-macro"")")
<:#284,12960><:f240,2Times New Roman,>filllist("ChangeItemBinding(""item-id"", ""item-macro"")")
<:#284,12960><:f240,2Times New Roman,>filllist("CheckItem(""item-id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("CloseWindow(""window-name"")")
<:#284,12960><:f240,2Times New Roman,>filllist("Contents()")
<:#284,12960><:f240,2Times New Roman,>filllist("CopyDialog()")
<:#284,12960><:f240,2Times New Roman,>filllist("CopyTopic()")
<:#284,12960><:f240,2Times New Roman,>filllist("CreateButton(""button-id"", ""name"", ""macro"")")
<:#284,12960><:f240,2Times New Roman,>filllist("DeleteItem(""Item-Id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("DeleteMark(""marker-text"")")
<:#284,12960><:f240,2Times New Roman,>filllist("DestroyButton(""button-id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("DisableButton(""button-id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("DisableItem(""item-id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("EnableButton(""button-id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("EnableItem(""item-id"")")
<:#284,12960><:f240,2Times New Roman,>filllist("ExecProgram(""macro-line"", display-state)")
<:#284,12960><:f240,2Times New Roman,>filllist("Exit()")
<:#284,12960><:f240,2Times New Roman,>filllist("FileOpen()")
<:#284,12960><:f240,2Times New Roman,>filllist("FocusWindow(""window-name"")")
<:#284,12960><:f240,2Times New Roman,>filllist("GotoMark(""marker-text"")")
<:#284,12960><:f240,2Times New Roman,>filllist("HelpOn()")
<:#284,12960><:f240,2Times New Roman,>filllist("HelpOnTop()")
<:#284,12960><:f240,2Times New Roman,>filllist("History()")
<:#284,12960><:f240,2Times New Roman,>filllist("IfThen(IsMark(""marker-text""), ""macro"")")
<:#284,12960><:f240,2Times New Roman,>filllist("IfThenElse(IsMark(""marker-text""), ""macro-1"", ""macro-2"")")
<:#284,12960><:f240,2Times New Roman,>filllist("InsertItem(""menu-id"",</`>""item-id"",</`>""item-name"",</`>""macro"",</`>position)")
<:#284,12960><:f240,2Times New Roman,>filllist("InsertMenu(""menu-id"", ""menu-name"", menu-position)")
<:#284,12960><:f240,2Times New Roman,>filllist("IsMark(""marker-text"")")
<:#284,12960><:f240,2Times New Roman,>filllist("JumpContents(""filename"")")
<:#284,12960><:f240,2Times New Roman,>filllist("JumpContext(""filename"",</`>context-number)")
<:#284,12960><:f240,2Times New Roman,>filllist("JumpHelpOn()")
<:#284,12960><:f240,2Times New Roman,>filllist("JumpId(""filename"", ""context-string"")")
<:#284,12960><:f240,2Times New Roman,>filllist("JumpKeyword(""filename"", ""keyword"")")
<:#284,12960><:f240,2Times New Roman,>filllist("Next()")
<:#284,12960><:f240,2Times New Roman,>filllist("Not(IsMark(""marker-text""))")
<:#284,12960><:f240,2Times New Roman,>filllist("PopupContext(""filename"",</`>context-number)")
<:#284,12960><:f240,2Times New Roman,>filllist("PopupId(""filename"", ""context-string"")")
<:#284,12960><:f240,2Times New Roman,>filllist("PositionWindow(x,</`>y,</`>width,</`>height,</`>state,</`>""name"")")
<:#284,12960><:f240,2Times New Roman,>filllist("Prev()")
<:#284,12960><:f240,2Times New Roman,>filllist("Print()")
<:#284,12960><:f240,2Times New Roman,>filllist("PrinterSetup()")
<:#284,12960><:f240,2Times New Roman,>filllist("RegisterRoutine(""DLL-name"", ""function-name"", ""format-spec"")")
<:#284,12960><:f240,2Times New Roman,>filllist("RemoveAccelerator(key,</`>shift-state)")
<:#284,12960><:f240,2Times New Roman,>filllist("SaveMark(""marker-text"")")
<:#284,12960><:f240,2Times New Roman,>filllist("Search()")
<:#284,12960><:f240,2Times New Roman,>filllist("SetContents(""filename"",</`>context-number)")
<:#284,12960><:f240,2Times New Roman,>filllist("SetHelpOnFile(""filename"")")
<:#284,12960><:f240,2Times New Roman,>filllist("UncheckItem(""item-id"")")<:f>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960><:f240,2Times New Roman,>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>function macros()<-!><:f>
<:f240,2Times New Roman,0,0,255><+,>IF <-,><:f><+,><:f240,2Times New Roman,0,0,255>u<-,>case$(GetDocInfo$(3)) != "_HELPMKR<:f><:f240,2Times New Roman,0,0,255>.STY"
<:#568,12960><+,> Message("<-,>Macro footnote creation can only be done on documents using _HELPMKR.STY as the style sheet.", "HelpMaker<+,>")
<-,>
<:#284,12960><+,> EXIT FUNCTION<-,>
<:#284,12960><+,> <:f240,2Times New Roman,0,0,255>ENDIF<-,><:f>
<:f240,2Times New Roman,>call listfiller()
<:#284,12960><:f240,2Times New Roman,>result = dialogbox(".", "macros")
<:#284,12960><:f240,2Times New Roman,> <:f240,2Times New Roman,0,0,255>if result = 0
<:#284,12960><:f240,2Times New Roman,> exit function
<:#284,12960><:f240,2Times New Roman,> <:f240,2Times New Roman,0,0,255>endif
<:#284,12960><:f240,2Times New Roman,> <:f240,2Times New Roman,0,0,255>if getdialogfield$(8002) = ""
<:#284,12960><:f240,2Times New Roman,> message("Please select on of the help file macros.", "HelpMaker")
<:#284,12960><:f240,2Times New Roman,> call macros()
<:#284,12960><:f240,2Times New Roman,> exit function
<:#284,12960><:f240,2Times New Roman,> <:f240,2Times New Roman,0,0,255>endif
<:#284,12960><:f240,2Times New Roman,>usercontrol("Position cursor, then click on Resume.<:f><:f240,2Times New Roman,>")
<:#284,12960><:f240,2Times New Roman,>sendkeys("<[>home]")
<:#284,12960><:f240,2Times New Roman,>footnotes<:f><:f240,2Times New Roman,>(1, 0, 1, 0, 0)<:f>
<:#284,12960>setstyle("Macro")
<:#284,12960>type(getdialogfield$(8002))
<:#284,12960>sendkeys("<[>esc]")
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>end function<-!><:f>
<:#284,12960><:f240,2Times New Roman,>
<:#269,12960><:f240,2Times New Roman,0,0,0><+!>DIALOG rtfpath<-!><:f>